home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / wnspider.zip / SPIDR1-1.FRM (.txt) < prev    next >
Visual Basic Form  |  1991-08-22  |  15KB  |  232 lines
  1. Spider
  2. Form1-
  3. PeekBox
  4. Label1
  5. Deals Remaining:
  6. Cards
  7. @    DealCount
  8. Label1
  9. DealRow
  10.     RemoveSet
  11. Remove
  12. &Game
  13. &Deal
  14. &Undo
  15. Options
  16. &Options
  17. FourDown
  18. &Four Down
  19. S    ThreeDown
  20. &Three Down
  21. UseSuits
  22. Use &Suits
  23. ExitNow
  24. E&xit
  25. Scrunching
  26. &Scrunching
  27. ScrunchingNone
  28. ScrunchingQ
  29. One Quarter
  30. ScrunchingT
  31.     One Third
  32. ScrunchingH
  33. One Half
  34. Form_Click0
  35.     Form_Load
  36. Cards
  37. Width}
  38. Visible
  39. Colord
  40.     BackColor
  41. EndSubo
  42. Caption
  43. DragMode
  44.     AUTOMATIC
  45. Height
  46. GREEN
  47. YELLOW
  48. MAGENTA
  49. Command1_Click
  50. ExchangeCardsW
  51. ExchangeCard
  52. Shuffle_Clickp
  53. Shuffle
  54. Form2
  55. FALSEe
  56. Game_Click
  57. Deal_ClickM
  58. ExitNow_Click
  59. Shuffle2Decks
  60. TableauJ
  61.     WorkDecks
  62. WorkDeck
  63. ChangeDeck_Click\
  64. TableauTest
  65. Cards_Click
  66. Index
  67. Cards_DragDropx
  68. Source
  69. Tablo
  70. TLookUp
  71. Above
  72. Below
  73. SCol;
  74. SIndex
  75. TIndex/
  76. sequenceTCol
  77. MANUAL
  78. WHITES
  79. MsgForm
  80. MsgLabel
  81. DealRow_Click?
  82. NextCard
  83. NewCardJ
  84. LCARD
  85. TCARD
  86. label
  87. PeekBox
  88. PeekBox_Clickp
  89. PeekBox_MouseDown`
  90. Button$
  91. Shift
  92. HoldPeek
  93. PeekBox_MouseUp
  94. RemoveSet_Click
  95. SeriesCheck
  96. ThreeDown_Click
  97.     ThreeDown
  98. check
  99. CheckedZ
  100. FourDown
  101. FourDown_Click[
  102. CardOffSet
  103. CardOffSetDefault
  104. ScrunchingNone_Click=
  105. ScrunchingNone
  106. CardSetOff
  107. ScrunchingQ
  108. ScrunchingT
  109. ScrunchingH
  110. ScrunchingH_Click
  111. ScrunchingQ_Click)
  112. ScrunchingT_Click
  113. Scrunch
  114. ReSize
  115. Scrunching_ClickS
  116.     DealCount|
  117. still
  118. some7
  119. MoveColumn
  120. interger
  121. subMoveColumn
  122. UseSuits_Click
  123. UseSuits
  124. BoarderStyle
  125. BorderStyle
  126. CanUndo
  127. SColumn
  128. SourceIndex
  129. TargetIndex
  130. Undo_Click+
  131. MCSIndex
  132. MCTIndex
  133. Undoing
  134. mscindex
  135. Form_Load
  136. This creates the deck, stacked on At
  137. Initializing
  138. Default is Four Down
  139. Default offset for cards = card height
  140. Make PeekBoxes
  141. Create Blank cards for head of columns
  142. Deal_Click
  143. ExitNow_Click
  144. Shuffle2Decks
  145. Fill the array
  146. Shuffle the ArrayC
  147. Tableau
  148. to start, cannot undo until something is moved
  149. First indicate no cards in any column
  150. Needed for redeals
  151. Put down blank cards as heads of columns
  152. Set up peek boxesb
  153. Cards_DragDrop
  154. No movement so do nothingx
  155. Not a blank"
  156. Attempting to move to middle of column
  157. Debug.Print "NEOC: Index="; Index; " Below="; TLookUp(Index).Below
  158. Must be end of column"
  159. Code for checking the cards below the source for sequence and suit
  160. Index of Source 
  161. Must be all of same suit and sequence 
  162. Column of Source
  163. Code to check that source is being moved either to blank or to card in sequence
  164. Move the column from source to target 
  165. Not a legal move
  166. Now update peek box:
  167. showing blank card so...
  168. ...indicate none left
  169. else still may be some cards so check...
  170. count each hidden card
  171. DealRow_Click
  172. First make sure that there are no spaces present
  173. Must First Fill All Blanks
  174.  Now deal a new row, if there is one to deal
  175. All Cards are Dealt"
  176. Can't undo a dealC
  177. location of where to put carde
  178. Debug.Print cards(tlookup(i).above).top; i
  179. PeekBox_MouseDown
  180. PeekBox_MouseUp
  181. RemoveSet_Click
  182. Check for completed sequenceso
  183. SeriesCheck
  184. Starts with an Ace
  185. Not a complete sequence
  186.  If it gets this far it is a complete sequence
  187. Then MAY not be on blank
  188.  If cards(TLookUp(TIndex).Above).visible = false Then PeekBox(SCol).Caption = " " + Format$(Val(PeekBox(TCol).Caption) - 1)l
  189. Turn on blank card
  190. showing blank card so...
  191. ...indicate none left
  192. else still may be some cards so check...
  193. count each hidden card
  194. ThreeDown_Click
  195. FourDown_Click
  196. ScrunchingNone_Click
  197. ScrunchingH_Click
  198. ScrunchingQ_Click
  199. ScrunchingT_Click
  200. Scrunch
  201. ReSize
  202. Go to top>
  203. MoveColumn
  204. Code for moving into a blank space
  205. Column of Source
  206. Index of Card above Source
  207. Save information for Undo
  208. assume the best!
  209. Moving to a blank
  210. Column of Target
  211. Code to move and link up card(s)
  212. don't link to blank
  213. Turn off blank card
  214. Indicate that it is firste
  215. Link Target to Source
  216. Link Source to Target
  217. Filling a blank?
  218. Move the card
  219. Code to uncover top of column
  220. Reveal Blank CardR
  221. Column of Target
  222. Code to move and link up card(s)
  223. Link Target to Source
  224. Link Source to Target
  225. Filling a blank?
  226. Move the cardM
  227. Code to uncover top of column
  228. Reveal Blank CardR
  229. UseSuits_Click
  230. Undo_Click
  231. moving to blank 
  232.